﻿Imports System.Data.OleDb
Public Class KetQuaDAO
    Public Function DSLop() As List(Of String)
        Dim sql As String
        sql = "select TenLop from Lop"
        Dim cnn As OleDbConnection = DataProvider.ConnectDB()
        Dim cmd As OleDbCommand
        cmd = New OleDbCommand(sql, cnn)
        Dim reader As OleDbDataReader = cmd.ExecuteReader()
        Dim ds As New List(Of String)
        While reader.Read()
            ds.Add(reader.GetString(0))
        End While
        cnn.Close()
        Return ds
    End Function

End Class
